COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "PTEST"
C00003 ENDMK
C⊗;
BEGIN "PTEST"
REQUIRE "HEADER.SAI[LIB,KS]" SOURCE_FILE;

∂ Try out new prime number routines.;

INT i,j,k, brk;
STR s,t;
EXTERNAL INT _SKIP_;

EXTERNAL INT PROC incr_prime(INT n, incr);

WHILE TRUE
  DO BEGIN
    PRINT(↓,"<n,incr> ← ");
    s ← INCHWL;
    IF _SKIP_ = ALT
      THEN DONE;
    i ← INTSCAN(s,brk);
    j ← INTSCAN(s,brk);
    k ← incr_prime(i,j);
    PRINT(" and the answer is: incr_prime(",i,",",j,") = ",k,↓);
    END;

END "PTEST".